home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / icse / icot.sci < prev    next >
Text File  |  1999-09-16  |  411b  |  16 lines
  1. //<ytot>=icot(dtv)
  2. //<ytot>=icot(dtv)
  3. //extraction de l'etat total
  4. //variables d'entree :
  5. //dtv(ndtv) : tableau de travail double precision obtenu par
  6. //la mise en oeuvre de icse,icsu,icsua ou icsuq
  7. //variables de sortie:
  8. //ytot(ny,nt) : etat du systeme
  9. //!
  10. ytot(ny,nti+ntf)=0.d0;
  11. lot=ndtu+ny+ntob+nob*ny+nex*ntob*nob+2*nu+ntob*nob+ny*(1+ny+nuc+nuv);
  12. ytot=matrix(dtv(lot+1:lot+ny*(nti+ntf)),ny,nti+ntf)
  13. //end
  14.  
  15.  
  16.